home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / mail / 1st_101b.zip / 30-MAIL.SCR < prev    next >
Text File  |  1992-09-28  |  1KB  |  69 lines
  1. '       Mail script for 1st reader
  2. '       Written by Martin W. Diers
  3. '       Modified by Sparky for Wildcat! 3.5
  4. '       September 27, 1992
  5.  
  6.  
  7. CAPTURE ON
  8. TIMEOUT 30
  9.  
  10. LOCKLINE 20 30
  11. COMMENT "@DATE@ @TIME@  Connected with @BBSNAME@"
  12. COMMENT "@DATE@ @TIME@  Opened capture file @BBSID@.CAP"
  13. COMMENT "@DATE@ @TIME@  Logging in to system"
  14.  
  15. LOOKFOR "Y/n]" "Y^M"
  16.  
  17. WAITFOR "first name" 20
  18. TRANSMIT "!@USER@^M"
  19. WAITFOR "password"
  20. TRANSMIT "@PASSWORD@^M"
  21. LOOKFOR "y/N]" ""
  22.  
  23. :REPLIES
  24. IF NOT REPLIES GOTO DOWNLOAD
  25. COMMENT "@DATE@ @TIME@  Uploading replies"
  26. WAITFOR "H G Q]:"
  27. TRANSMIT "U^M"
  28. UPLOAD @REPDIR@@BBSID@.REP
  29.  
  30. WAITFOR "uploaded|UNSUCCESSFUL|NOT|rejected"
  31. IF FOUND=1 GOTO GOODUPLD
  32. GOTO DOWNLOAD
  33.  
  34. :GOODUPLD
  35. COMMENT "@DATE@ @TIME@  Deleting @BBSID@.REP"
  36. KILL @REPDIR@@BBSID@.REP
  37. COUNT REP
  38.  
  39. :DOWNLOAD
  40. COMMENT "@DATE@ @TIME@  Scanning for new messages"
  41. WAITFOR "H G Q]:"
  42. TRANSMIT "D^M"
  43. WAITFOR "found: 0|oodbye when done?"
  44. IF FOUND=1 GOTO GOODBYE
  45. TRANSMIT "Y^M"
  46.  
  47. WAITFOR "@BBSID@.QWK|insufficient"
  48. IF FOUND=2 GOTO EXIT
  49. DOWNLOAD @PACKETDIR@@BBSID@.QWK
  50. WAITFOR "successful|UNSUCCESSFUL"
  51. IF FOUND=2 GOTO EXIT
  52. COUNT QWK
  53.  
  54. :EXIT
  55. COMMENT "@DATE@ @TIME@  Waiting for disconnect"
  56. WAITFOR "H G Q]:"
  57. TRANSMIT "G^M"
  58. GOTO END
  59.  
  60. :GOODBYE
  61. TRANSMIT "N^M"
  62. WAITFOR "H G Q]:"
  63. TRANSMIT "G^M"
  64.  
  65. :END
  66. WAITFOR "Thanks" 20
  67. PAUSE 2
  68. CAPTURE OFF
  69.